home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGASIC / BASFILES.LZH / TOTSPACE.BAS < prev    next >
BASIC Source File  |  1988-09-10  |  288b  |  12 lines
  1. '$INCLUDE:'QBTOOLS.INC'
  2. '' '$INCLUDE:'QBTOOLS2.INC'
  3.  
  4.  
  5. FUNCTION TotalSpace&
  6.     DIM InRegs AS RegType, OutRegs AS RegType
  7.     InRegs.ax = &H3600
  8.     InRegs.dx = &H0
  9.     CALL INTERRUPT(&H21, InRegs, OutRegs)
  10.     TotalSpace& = CLNG(OutRegs.cx) * CLNG(OutRegs.ax) * CLNG(OutRegs.dx)
  11. END FUNCTION
  12.